home *** CD-ROM | disk | FTP | other *** search
/ Star Festival... a Return to Japan / Star Festival... a Return to Japan.iso / pc / STARFESTIVAL / Shared.Cst / 00140.ls < prev    next >
Encoding:
Text File  |  1999-10-10  |  1.5 KB  |  68 lines
  1.  
  2. on setButFlags
  3.   global gEngBut, gKanjBut, gKanaBut, gEngVBut
  4.   
  5.   set spriteEngl = 10
  6.   set spriteKanj = 11
  7.   set spriteKana = 12
  8.   set spriteEVoi = 13
  9.   
  10.   if (the name of cast( the castNum of sprite spriteEngl )  = "engSelUp" ) then
  11.     set gEngBut = TRUE
  12.   else
  13.     set gEngBut = FALSE
  14.   end if
  15.   
  16.   if (the name of cast( the castNum of sprite spriteKanj )  = "kanjiSelUp") then
  17.     set gKanjBut = TRUE
  18.   else
  19.     set gKanjBut = FALSE
  20.   end if
  21.   
  22.   if (the name of cast( the castNum of sprite spriteKana )  = "kanaSelUp") then
  23.     set gKanaBut = TRUE
  24.   else
  25.     set gKanaBut = FALSE
  26.   end if
  27.   
  28.   if (the name of cast( the castNum of sprite spriteEVoi )  = "voiceSelUp") then
  29.     set gEngVBut = TRUE
  30.   else
  31.     set gEngVBut = FALSE
  32.   end if
  33.   
  34. end setButFlags
  35. ------------------------------------------------------------------------
  36.  
  37. on getButFlags
  38.   global gEngBut, gKanjBut, gKanaBut, gEngVBut
  39.   
  40.   set spriteEngl = 10
  41.   set spriteKanj = 11
  42.   set spriteKana = 12
  43.   set spriteEVoi = 13
  44.   
  45.   if gEngBut then
  46.     set the castNum of sprite spriteEngl to (the number of cast "engSelUp")
  47.     textEng
  48.   end if
  49.   
  50.   if gKanjBut then
  51.     set the castNum of sprite spriteKanj to (the number of cast "kanjiSelUp")
  52.     textKji
  53.   end if
  54.   
  55.   if gKanaBut then
  56.     set the castNum of sprite spriteKana to (the number of cast "kanaSelUp")
  57.     textKan
  58.   end if
  59.   
  60.   if gEngVBut then
  61.     set the castNum of sprite spriteEVoi to (the number of cast "voiceSelUp")
  62.     VoicEng
  63.   end if
  64.   
  65.   updateStage
  66.   
  67. end getButFlags
  68.